home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 May / 1991-05.d64 / ml programming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  867b  |  44 lines
  1. 0 clr
  2. 100 data 197,162,240,252,173
  3. 110 data 27,212,41,6,170,254
  4. 120 data 0,208,188,0,208,74
  5. 130 data 170,189,248,7,73,1
  6. 140 data 157,248,7,200,240,5
  7. 150 data 165,162,24,144,222
  8. 160 data 96
  9. 170 for j=828 to 862:readx
  10. 180 t=t+x:poke j,x:next j
  11. 190 if t<>4770 then stop
  12. 200 data 0,2,0,63,255,255,63
  13. 210 data 247,63,243,63,240,56
  14. 220 data 48,24,48,12,96,6,192
  15. 230 for j=0 to 18 step 3
  16. 240 read x,y
  17. 250 poke 896+j,x:poke 897+j,y:poke 898+j,0
  18. 260 poke 960+j,x:poke 961+j,y:poke 962+j,0
  19. 270 next j
  20. 280 for j=21 to 27 step 3
  21. 290 read x,y
  22. 300 poke 896+j,x:poke 897+j,y:poke 898+j,0
  23. 310 poke 961+j,x:poke 960+j,y:poke 962+j,0
  24. 320 next j
  25. 330 for j=30 to 60 step 3
  26. 340 poke 896+j,0:poke 897+j,0:poke 898+j,0
  27. 350 poke 960+j,0:poke 961+j,0:poke 962+j,0
  28. 360 next j
  29. 370 for j=0 to 3
  30. 380 poke 53248+j*2,25
  31. 390 poke 53249+j*2,j*30+80
  32. 400 poke 53287+j,1
  33. 410 poke 2040+j,15
  34. 420 next j
  35. 430 poke 54287,55
  36. 440 poke 54290,129
  37. 450 poke 54296,128
  38. 460 poke 53269,15
  39. 470 printchr$(147)
  40. 480 for j=1 to 20:print tab(31);chr$(165):next j
  41. 490 sys 828
  42. 500 for j=1 to 5000:next j
  43. 510 poke 53269,0
  44.